home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / FREE.INC < prev    next >
Text File  |  1984-07-13  |  817b  |  33 lines
  1. PROCEDURE ShowFree;
  2. { This procedure calls Dos 2.0 function $36 which determines the disk
  3. {  free space.
  4. { Danny Cavasos           June 1984 }
  5. TYPE
  6.   varX=RECORD
  7.     varL,varH:BYTE;
  8.   END;
  9.   FreeRec=RECORD
  10.     AX:varX;
  11.     BX,CX:INTEGER;
  12.     DX:varX;
  13.     BP,SI,DI,DS,ES,FLAGS:INTEGER;
  14.   END;
  15. VAR
  16.   FreeParm:FreeRec;
  17.   FreeBytes,dum1,dum2,dum3:REAL;
  18. BEGIN
  19.   GOTOXY(62,24);
  20.   WITH FreeParm DO
  21.     BEGIN
  22.       AX.varH:=$36;    { function 36 hex }
  23.       DX.varL:=$0;     { perform function for current default drive }
  24.       MsDos(FreeParm);
  25.       dum1:=AX.varL;   { sectors per cluster }
  26.       dum2:=BX;        { available clusters  }
  27.       dum3:=CX;        { bytes per sector    }
  28.       FreeBytes:=dum1*dum2*dum3;
  29.       WRITE(FreeBytes:6:0,' Bytes Free');
  30.     END;
  31.     GOTOXY(1,1);
  32. END;
  33.